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DIP JUMPERS FOR TRS-80 1700069D BORRDS LEVEL I 



Z3 

xxxxxxxxxxxx 

IX X16 

2X X15 

3X X14 

4X X13 

5X X12 

6X Xll 

7X « X10 

8X X9 

XXXXXXXXXXXX 



271 

XXXXXXXXXXXX 

IX X16 

2X X15 

3X X14 

4X X13 

5X X12 

6X Xll 

7X X10 

3X X9 

XXXXXXXXXXXX 



DIP JUMPERS FOR TRS-80 1700069D BORRDS LEVEL II 



23 

XXXXXXXXXXXX 

IX X16 

2X X15 

2X X14 

4X 1 X13 

5X X12 

6X Xll 

7X X10 

8 X X9 

XXXXXXXXXXXX 



Z71 

XXXXXXXXXXXX 

IX ~ — Xl6 

2X — - X15 

3X X14 

4X X13 

5X X12 

6X Xll 

7X— X10 

8X X9 

XXXXXXXXXXXX 



NO CHRNOE IN JUMPERS FOR THE EXPRNSION INTERFRCE 



16K'S OR 32K'S RRM CHIPS FOR THE EXPRNSION INTERFRCE 

IF VOU RRE GOING TO PUT 16K'S IN VOUR INTERFRCE 
VOU WILL HRVE TO INSTRLL THE CHIPS IN Z9 THRU 216. 

i.f.i.tififuvwiftnn ^.."..-.?%^s^.--.^-..-.^.^,,'\ 

X X X X 

X 29 X X Z16 X 

X X X X 

XXXXXXXXXXXX XXXXXXXXXXXX 

> » POWER supplv y » 

THERE RRE 4 WIRES <VELLOW, GREEN, ORRNGE, A RED> 
CUMING FROM THE LEVEL II ROM RDRPTOR. IF THESE 
WIRES RRE PRESSED RGRINST THE BORRD ONE OF THE 
h-HRRP PINS COULD SHORT-OUT ONE OF THE 4 WIRES 
BEFORE VOU PUT VOUR KEVBORRD UNIT BRCK TOGETHER 
CHECK TO MRKE SURE THIS IS OK. 



The Evolution of "Life" 

Conway 'e game of "Life" has long been of interest to me, but until I 
recently received my TES-80 with Level II BASIC, I had no senna of 
displaying ite pattens. I quickly translated Gene Perkins' "Life" program 
(THS-80 Users Croup lewaletter, Tol. 1, Ho. 3 f pp. 12-14) for Lerel II BASIC 
and was very pleased with its display. The slow operation did bother me 
(55 seconds per generation for a 20 x 20 field). r a ngin g to integer 
variables only reduced the tine to 46 seconds. 

Apparently a different approach was needed. Since I had 16 I of 
memory, I could afford to put an array representing the whole field into the 
program, and then invert the updating logic. The array update routine now 
does nothing until it finds a live call on the screen; then it adds "1" to 
each of the eight array positions representing the surrounding cells. When 
the entire array has been updated, its contents are quickly transferred to 
the screen. This reduced the tine per generation for a 20 z 20 field to 
about 25 seconds, still too slow. It did have the advantage of showing a 
stationary pattern most of the tine, with brief updating periods. 

The next improvement waa to update only the active area of the field; 
it is really necessary to check only the area that already has live cells, 
plus one row or column in each direction. That was the jackpot! low a 
small, moving figure such as a "glider" requires only about 3 seconds per 
generation, even on a full sited field that would have required om 5 sir. 
per generation using my first translation. 

The program is now fast enough for small figures (in my opinion) , but 
still slows down too much if the patterns expand. Does anyone have any 
further ideas? Perhaps a machine language "Life" program? 

The final program has a few operational changes from Gene Parkins' 
version: 

1. Only Conway' a rules of "Life" arm followed: Each cell is surrounded 
by eight neighbor cells in a checkerboard pattern. Each generation 
is determined by the proceeding generation: 

a) Any live call with 2 or 3 neighbors stays alive. 

b) Any empty cell with 3 neighbors gives birth. 

c) All other cells die, from either overcrowding or isolation. 

2. The mart mum field sise has been expanded slightly to 6? x 40. 

3. The initial "seed" cell is placed in the canter of the field. 

4. 0, D, R, and L are used for moving the "seed" cell up, down, right, or 
left, respectively. S sets a live cell, and E ends the seeding 
routine. Bote that it ie necessary only to touch the appropriate key 
to cause action to be taken; it is not necessary to press ESTER. 

5. Due to the memory required by the array, I estimate that a 4 I THS-80 
would have a mart am field also of 16 x 16 using this program, or a 
differently shaped field of the same area. 

The patterns that develop from simple symmetric figures are especially 
interesting, as are the interactions between moving figures such as "gliders" 
and "spaceships". Here's to "Life"! 

Dalmer D. Hinrichs 
2116 S. E. 377th Ave. 
Vaahougal, Washington 96671 
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Glider Spaceship 



10 CLS PPINTTAB' 18- "* * + CONWAY'S GAMF OF 'LIFE' * * *" 

15 - - BY D D HINRICHS FOP TRS-80 LEVEL II BASIC - - 

20 DEFINT A - V = ■ P ■ 1 ■ 2 PPINT 

30 INPUT "UNIVERSE WIDTH (9 TO 62 >" ; W 

40 INPUT "UNIVERSE HEIGHT <9 TO 46V ■ H 

50 IF W < 9 THEN W ■ 9 

60 IF W > 62 THEN W = 62 

79 IF H < 9 THEN H = 9 

80 IF H > 46 THEN H = 40 
90 DIM ACW+1, H+l) CLS 

100 PRINT "U = UP, D = DOWN, R = RIGHT, L = LEFT, S = SET. E = END" 

105 DRAW BORDER 

110 FOR I = TO W+W+3 SETCI, 6) SETCI, H+7) : NEXT I 
120 FOR V = 7 TO H+6 SETCO, Y) : SEKP, V) 
130 SET<W+W+Q, Y) : SEKW+W+3, V) NEXT Y 

140 ' INPUT 'LIVE' CELLS 

145 X = W/2 :Y = H/2 + 6 :S = XI = X X2 = X Yl = Y Y2 = Y 

150 I = X + X : SET<L V) SETO+P. Y> 

160 PRINT8 65, "NEXT CELL?"; 2$ = INKEV* IF Z$ = "» GOTO 160 

170 IF S = THEN RESET < I, V) RESETU+P. V) 

180 S = 

196 IF 2$ = "LI" AND Y > 7 THEN V = Y - P ELSE 200 

195 IF Y < Yl THEN Yl = V GOTO 150 ELSE 150 

200 IF Z$ = "D" AND Y < H+6 THEN Y = Y + P ELSE 210 

205 IF Y > Y2 THEN Y2 = Y : GOTO 150 ELSE 150 

210 IF 2$ = "R" AND X < W THEN X = X + P ELSE 220 

215 IF X > X2 THEN X2 = X : GOTO 150 ELSE 150 

220 IF 2% = "L" AND X > P THEN X = X - P ELSE 230 

225 IF X C XI THEN XI = X GOTO 150 ELSE 150 

220 IF 2* = "S" THEN S = P : GOTO 150 

248 IF 2% <> "E M GOTO 160 

250 SET NOrtBER Of- GENERATIONS 

260 E = : G = -P : XL = XI : XH = X2 : YL = VI YH ■ V2 
270 G=G+P PRINT? 0, "GENERATION ";G, " 

280 IFG>=E PRINT0 39,.; INPUT "NO OF GENERATIONS"; E GOTO 280 
298 PRINTS 29. " » 

300 XI = W : X2 = P : Yl = H + 6 : Y2 = 7 

310 ' CLEAR ARRAY 

320 FOR X = XL TO XH : FOR V = YL-6 TO YH-6 
330 ACX. V) = 
240 NEXT Y NEXT X 

359 ' COMPUTE ARRAY VALUES 

368 FOR X = XL TO XH : I - X + X A = X - P B = X + P 

370 FOR Y = VI. TO VH 

280 IF POTNT<I, V) THEN 390 ELSE 490 

390C=Y-7F=V-6D=Y-5 

490 / SET ftCTIVE APFA BOUNDRY 

410 IF X <= XI AND X > P THEN XI = X - P 
420 IF X >= X2 AND X < W THEN X2 = X + P 
4?A IP y (n <J-i own y -■> -> t^jcn, y± = y - p 

440 IF Y >= V2 AND Y < H+6 THEN Y2 = V + P 

450 ' UPDATE ARRAY 

460 A<R. C )=AfA, C)+P : A<X, C >=A(X. C >+P A-'B, C >=A'B. f • -+P 

478 ACA, F>=A<A.F>+P A^B. F )=A' B. F >+P 

430 A- A, D)=A'A, D>+P A(X. D>=A*'X. D)+P A<B. D>-A<B. pi+P 

490 NEXT V : NEXT X 

560 XL = XJ XH = X2 VL ■ VI VH ■ V2 

?1 / UPDATE SCREEN 

520 FOR X = XL TO XH I = X + X K = I + P 

538 FOR V = VL TO VH 

540 ON A-: X, V-6 > + P GOTO 560. 560. 570, 550. 568. 560, 560. 560. 560 

558 SET (J. V> --.ET'-K. V> WTO 570 

560 PFSETf I. V) RESET-: K. y, 

570 NEXT V NEXT X ^ 

588 GOTO 2^8 3 



I've seen no mention in your newsletter about hon handy an AM radio is 
near your keyboard to verify CLOAD and CSAVE action - and for the mar- 
velous sounds that sometimes ensue when programs run! I One fellow out 
here has developed programs to play MUSIC this way with his TRS-80! 
FRED BLEGHMAN, 23958 ARGHWCOD ST., CANOGA PARK, CA 9130^ 

108 REM * COPYRIGHT FRED BLECHMAN 1978 * 

185 CLS 

110 PRINT PRINT" FORTUNE TELLING PROGRAM" 

115 REM * P M =739 * 

120 PRINT PRINT" THE COMPUTER WILL LIST SEVERAL TVPICAL QUESTIONS" 

130 PRINT"F0R VOU TO ASK THE 'FORTUNE TELLER' VOU MAY CHOOSE TO " 

140 PR I NT "ASK YOUR OWN QUESTION INSTEAD JUST ENTER THE APPROPRIATE" 

150 PRINT"NUHB£R . (FOR ENTERTAINMENT PURPOSES ONLY) " 

180 PRINT: INPUT "WHEN READY TO START, PRESS ENTER"; Af 

190 CLS 

200 PRINT INPUT "WHAT IS YOUR NAME".Bt 

285 INPUT"WHAT MONTH WERE VOU BORN? (MONTH NUMBER)"; N 

286 N=10*N 

207 F0RI=1T0N J=RND(32767) NEXTI 

210 PRINT PRINT" ";B*. ". CHOOSE ONE OF THE NUMBERS BELOW " 

220 PRINT PRINT" (D SHOULD 1 MAKE THAT TRIP I'M THINKING ABOUT?" 

230 PRINT"<2) IS HE/SHE SERIOUS, OR JUST PLAYING THE FIELD?" 

248 PRINT" (3) SHOULD I TELL HIM/HER THE WHOLE TRUTH?" 

250 PR INT "(4) SHOULD I ASK MY BOSS FOR A RAISE?" 

260 PRINT" <5) WILL I BE RICH AND FAMOUS SOME DAY?" 

270 PRINT" (6) IS THE INVESTMENT I'M CONSIDERING A GOOD ONE?" 

280 PRINT" (7) SHOULD I ACCEPT HIS/HER INVITATION?" 

290 PRINT" (8) SHOULD I GET OUT OF TOWN FAST???" 

300 PRINT"<9) IS IT TIME FOR A JOB CHANGE?" 

310 PRINT" (10) ASK ANY YES OR NO TYPE OF QUESTION" 

320 PRINT PRINT PRINT "WHAT NUMBER DO YOU WANT, ".B* INPUTA 

338 IF A=10 GOTO 560 

240 X=RND(10) 

345 CLS 

350 IF X=l GOTO400 

355 IF X=2 GOTO405 

368 IF X=3 GOTO410 

365 IF X=4 G0T0415 

370 IF X=5 GOTO420 

375 IF X=6 G0T0425 

388 IF X=7 GOTO430 

385 IF X=8 G0T0435 

398 IF X=9 G0T0448 

395 IF X=10 G0T0445 

400 PRINTAT453, "YES. IT APPEARS SO. BUT BE AWARE THAT" GOTO450 

405 PR I NTAT453, "CERTAINLY 1 HOWEVER, ON THE OTHER HAND. " GOTO450 

410 PRINTAT453, "NO. IT DOESN'T LOOK LIKE IT. BUT":GOTO450 

415 PRINTAT453. "THAT'S FOR SURE! BUT, ON THE OTHER HAND," GO1O450 

420 PRINTAT453, "I'D SAY YOU COULD COUNT ON IT, BUT" GOTO450 

425 PRINTAT453, "ARE VOU KIDDING? I'D TELL VOU EXCEPT THAT" GOTO450 

438 PRINTAT453, "THE FUTURE IS CLOUDY, ESPECIALLY SINCE" G0T0458 

435 PRINTAT453, "HOW SHOULD I KNOW? I'VE GOT PROBLEMS, LIKE" GOTO450 

440 PRINTAT453, "HECK, I DON'T KNOW 1 VOU MUST CONSIDER THAT " ■ GOTO450 

445 PR I NTAT453, "ACCORDING TO MY CRYSTAL BALL, YES 1 BUT" 

458 Y=RND(10) 

468 IF V=l GOTO510 

465 IF Y=2 G0T0515 

470 IF V=3 GOTO520 

475 IF V=4 G0T0525 

480 IF Y=5 GOTO530 

485 IF V=6 G0T0535 

490 IF Y=? GOTO540 



495 IF V»8 G0T0545 

598 IF Y=9 G0T0558 

585 IF Y-18 G0T0555 

518 PRINT"ALL MV SECRETS ARE IN MY TURBflN - WHICH MRS JUST STOLEN !": Q0T0588 

515 PRINT-I NEED SOME HINDEX FOR NY CRYSTAL BALL, "; B$; " f " GOTO580 

528 PRINT-UNDER THIS SLICK GRAY EXTERIOR, I'M ONLY HIRES 4 STUFF !": G0T0588 

525 PRINT"IT MOULD TAKE A $388 PERSONAL SEANCE TO BE SURE ! " : 00T0588 

530 PRINT-NY CRYSTAL BALL IS - LIKE SOME PEOPLE - CRACKED !!': G0T0588 

535 PRINT" IN CASE I'M WRONG, RENENBER WHAT THIS READING COST YOU ! " : G0T0588 

548 PRINT'THAT'S A REALLY DIFFICULT QUESTION, "; B»; "!" G0T0588 

545 PRINT-NY HAGIC CARPET COULD BE STEERING HE WRONG, "; B$; " ! " :G0T0588 

558 PRINT-THE FUTURE IS REALLY WHAT YOU HAKE OF IT, ";B$; ". . . ":G0T0588 

555 PRINT-IF YOU DON'T LIKE NY ANSWER OH, FAITHLESS ONE, TRY ASTROLOGY!" 

556 GOT0588 

568 as PRINT PRINT PRINT-TYPE IN QUESTION, THEN HIT 'ENTER'"; : INPUT A$ 

578 GOTO 348 

588 FOR D=l TO 2588 : NEXTD : G0T0218 

598 END 



96 REN * REM STATEMENTS 96-99 KEEP LIST FROM SCROLLING * 

97 REM 

98 REM 

99 REM 

188 REM * COPYRIGHT FRED BLECHHAN 1978 * 

181 REM * 23958 ARCHWOOD ST . CANOGA PARK, CA 91387 * 

182 REM * P M «2135 * 

183 REM * CLOCK SPEED IS SET AT LINE 178 * 
118 CLS: PRINT 

128 PRINT" NY $688 DIGITAL CLOCK 1 " 

121 PRINT PRINT PRINT" SET THE HOURS. MINUTES AND SECONDS YOU WANT" 

122 PRINT"AS A STARTING TIME, IN EITHER 12 OR 24 HOUR FORMAT. 

123 PRINT PRINT INPUT "WHEN READY TO SET STARTING TIME, HIT 'ENTER' "; A$ 
125 PRINT H-0 M»8 S-0 F«8:X-0 

138 REM * LET H«HOURS, M-MINUTES, S*SECONDS, F*FORMAT * 

131 CLS PRINT PRINT PRINT 

135 INPUT"12 OR 24 HOUR FORMAT"; F 

136 IF (F012)*(F024) PRINT" INVALID ENTRY! TRY AGAIN" GOTO 135 
148 INPUT"STARTING HOURS"; H 

145 IF F*12 THEN IF H-8 PRINT"INVALID ENTRY! TRY AGAIN" GOTO140 

146 IF F»12 THEN IF H>12 PRINT" INVALID ENTRY! TRY AGAIN" GOTO140 

147 IF H>23 PRINT" INVALID ENTRY' TRY AGAIN" GOTO 148 
158 INPUT"STARTING HINUTES";M 

155 IF H>59 PRINTMNVALID ENTRY' TRY AGAIN" GOTO 158 

160 PRINT PRINT-THE CLOCK WILL START COUNTING ONE SECOND AFTER THE " 

161 PRINT-NEXT ENTRY SET AHEAD AND ENTER 1 SECOND BEFORE TINE SET " 

164 PRINT INPUT-STARTING SECONDS"; S 

165 IF 5>59 PRINT'INVALID ENTRY! TRY AGAIN" :GOTO 164 

166 as 

167 PRINT PRINT PRINT" NY $608 ";F;"HOUR DIGITAL aOCK!" 

168 PRINTAT 404, "HOURS", "MINUTES", "SECONDS" 
170 FOR X«l TO 450 NEXT X 

175 PRINTAT 468, H, M, S 

198 S»S+1 

198 IF S«60 THEN N-M+l 

200 IF S-60 THEN S«0 

218 IF M-60 THEN H-H+l 

220 IF M-60 THEN M-0 

225 IF H-24 THEN H-0 

226 IF F-24 GOTO 250 
238 IF H-13 THEN H-l 
250 GOTO 170 



3 August 1978 
Dear Gordon: 

Thanks for your listing of my "Conway's Case of 'Life'" that 1 sent to 
you; looks very nice that way. 

Data recording and retrieval on tape has attracted soae comments in the 
newsletter, so the following aright save the ■sabers bob* of ay mistakes: 

For Level II BASIC, the manual says that up to 255 characters per data 
block can be stored, but if e little vague about the required overhead. 
By trial and error, I have fo'-ind the following: 



Digits per lumber 




(including decimal point (l) 




and exponent (4) If used.) 


Maximum numbers per Block 


2 


50 


3 


41 


4 


35 


5 


31 


6 


27 


7 


25 


8 


22 


9 


20 


10 


19 


11 


17 


12 


16 


13 


15 


14 


14 


15 


13 


16 


13 


17 


12 


18 


11 


19 


11 


20 


10 


21 


10 



Twenty-one digits per number? Well, that's a double precision number 
with a decimal point and exponent (i.e., "D-15" or something similar). The 
numbers are apparently stored on tape as they are printed, so print some of 
your data to see how many digits per number you have. Rote that the 
packing is exactly the same for integers, single precision, and double 
precision. Therefore you can write the data onto tape as integers, then 
read it as single or double precision with no problems. However, in 
general the reverse cannot be done. 

If there is not room for all of the last number, it will be chopped. 
However, it will still be written, read, and used with no error signal, even 
though it may be missing some minor detail like an exponent! Watch out! 

Since each data block has a leader, the only way to get reasonable data 
densities on tape ia to pack as much as possible into each data block. 
To do this, I use a program format such as the following: 

10 IT = (HT(l/32)*l)*32 • I , Ho. of observation 

20 DDI a(MT) ' IT = No. of observations on tape (blocka of 32) 

30 PRUT # -1 I I«bad **** in * * rrmT " A " her# 

40 FOR I » 1 TO IT/32 

50 J = 32*(l-l) 

60 PRHT#-1,1(J*1),A(J42),1(J*3), . . . a(J+3l),A(J*32) 

70 nxr I 



Than to raad the data froa tap*, exactly the um format la need, 
except that tha aqui Talent of atataaaat 50 prooadoe tha eaulwalaata of 
atatamaata 10 and 20. lot* that thla format allowa for a ▼artaala 
of obeerrationa. Tha naeber of ob serrations la recorded oa tha tap* flrat, 
bo that whan tha data ia later raad froa tape, tha program oaa antoaatioally 
adjust for tha amount of data to ba road. 

Thla requires that your data array ba a littla l oag a r, to allow for a 
whole ouabar of data blocka, bat thla la a aaall prioe to pay for faatar 
data reading and writing. Oaa thoaaaad thraa <lflt nmawaia oaa ba written 
onto t«pe, or raad froa tape la about *J- arlaataa, ueinc 52 aaabara par block 
(I could gat only 52 ▼ariablee liatad la tha "PEHTfVl" atataaaat). 

Mora than 32 varlableo can ba liatad la oaa 255 -character ata t aaaat line 

by uaing a buffer array and a reliable foraat of " . . . b(15),B(16), . . ." 

etc., or atlll mora by uaing aaparata Tarlablaa, "... B1.B2, . . C1.C2, " 
ate., but thla coapllcataa tha program. 



One final note: Vhan an taring tha "PRUT#-1" atataaaat, leering no 
apace e, I could enter only a 30-Tariable Hat. "aaTBlng tha llat, than 
returning to It with "EDIT" allowed two aore Tarlablaa (or about 15 
charactere) to ba added. Vhy? I hare ao idea! 

Doea anyone hawe a better ayatea for atoriag data oa tape? If ao, 
pleaae ahare it. 

Delmer D. Hinrioha 
2116 S. I. 577th Awe. 
Yaahoagal, Washington 96671 



TRS-89 PROGRAMMING CONTEST 
MIN *590 ee-SEND 5 A S E TO: P C -0> P BOX 621; FENTON, HO 63826 




TURN YOUR COMPUTER 
INTO A TEACHING MACHINE 

The staff at Program Oeagn cM not teem 
about e rl u c e f toivn' technology from a book — 
we wrote the book! We have been innovators m 
such kMching iiialeilala at progr a mmed instruc- 
tion and multimedia presentations We also belong 
to that minority in education who actuatty teat ma- 
tenals to see that people can leem from them 

Now Program Da ajn brings tva e xp erience to the personal 

computor Real PDt a developing a fete of educaaonel and 

game progr a m s tor tie whole family — from preschool child to 



Program Design educational software uses the computer's fuM leeching 
potential in excttng and effective ways. Programs are simple to use and 
memory efficient, sod moat important . . . they teach ! 

TAPES NOW AVAt>8LE FOR THE TRS-80. PET. APPLEM 

SAMPLE OUR SOFTWARE POM $1.*8. Send us $1 48, your name, addraas. and 
type of computor, and we'l send you ■ tape tor your computer wen actual samples of 
our programs. 

Or send us your name and address tor a printed catalog 

Department 1 1 PROGRAM DESIGN. MC 1 1 IOAR COURT GREENWCM, CONN 0*830 



*5 



£ 



ln troduc fo 




% 

^ 



Only $5-3 issues 



lor only S5. you can receive the next 
3 issues ot" Calculators/Computers, the 
how-to-do-it magazine Every issue will 
contain articles to help you use, program, 
and enjoy your TRS-80. Look for these 
coming attractions in the Sept/Oct issue: 

• TRS-80: What's Behind Bars'.' 

• Introducing Elementary School 
Children to the Computer - using the 
TRS-80 

• My TRS-80 Likes Me - featuring verbal 
activities and graphics - ongoing series 

• Number Patterns on the TRS-80 

• Programs in BASIC that you can 
modify for the TRS-80 

• And more TRS-80 games, tutorials, 
and programs in each issue! 



Calculators/ Computers Magazine 

will help you, the TRS-80 owner, get 
more hours of enjoyment from your 
computer. ..AND. will enable you to 
share your computing know-how with 
friends and family. 

Calculators/Computers Magazine 
also includes how-to articles tor your 
calculator.. 

Subscribe Today! 



Also available are these back issues 
featuring more TRS-80 articles: 

• The TRS-80: A lot of computer 
for $400 - March 78 

• TRS-80 Rectangular Graphics 
April 78 

• TRS-80 Games and Abstract Art 

May 78 

Back issues available for $2 each. 



Please enter my subscription lor 

PI Special Introductory Oiler 3 issues ■ Sb (US. o 

D1 yr (6 issues) - $10 

□ 2yr (12 issues) $18 

Foreign Hates Surlace mail to all countries 
please add $5 /yt Airmail to Canada add S8/yr 
airmail to Europe and Pan Am • add $12/yr 



111 

D check enclosed 
DMa st er charge 

Card No. 

Exp data 

Nam* 

Address 

City 

State 



add$16/yr. (U.S curre 

□ bill me ($1 billing lee) 
D Bank Amer icard 



Zip 



Subscriptions begin with the current issue 
ase send all orders to pYMAX 

P.O. Box 310-S, Menlo Park.CA 94025 
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TRS-80 OWNERS 
*HORSE RACE HRNDICRPPINQ PROGRRM* 
LET VOUR COMPUTER MRKE ** FOR VOU 
UblNG THIS TRPE RND fi DRILV RRCING FORM 

FRNTRSTIC RESULTS! ! 

'.PICKED THE EXRCT ORDER OF FINISH OF RLL 

HORSES IN THE BELMONT STRKES RRCE ! > 

WRITTEN FOR 4K-LEVEL 1 

SEND #11 FOR CRSSETTE RND COMPLETE INSTRUCTIONS 

TO HUFFMAN 

P. 0. BOX 1566 
RSHLRND, KV 41101 



Dear *'r. Gordon: 

I just got my Level II and have discovered 
a couple of "hitches" use them in the bulletin 

if you want. 



Keep up the good work, 

PROGRAM 7ANT3D 

The Hay 1977 issue of QST Magazine had aft 

article on a computer program to teach Morse code. 
I an still waiting for somebody to adapt this to 

the TRS-80. I bet it would be a good seller 

at least I -.ould like to buy a copy. 

LEV3L II TARG5T PRACTICE CAMS 

Tages H5-H6 of the Level II Book give a 
target practice game. Line 2+0 of the program is 
apparently missing and should contain the same 
in formation as line 280, namely 240 PR HIT© CA," #M ;: 
GOTO 30. 

LEVEL II PRINT © 

!.:y Level II PRINT Q instruction would not 
work properly, giving me a syntax error (SIT) when 
it was executed. My local Radio Shack dealer tried 
it and it worked r ine for him. After some head-scratch- 
ing, we determined that the problem was in the way 
that I entered the Q character. 

As so many of the special characters require 
the use of the shift key, I was entering the • 
character with the shift key pressed. This prints 
on the CRT display with the same O character but 
apparently the level II program interprets it as 
a different character, hence the syntax error. 

So, do not press the shift key when entering 
the Q symbol. }?7en though the CRT display says it 

is ok, the computer does not. 

H.T.( Tom) ORR 249 JUAN IT A WAY PLACBNTIA, CA 92C70 



100 PRINT" 


1 


119 PRINT" 


2 


120 PRINT" 


3 


138 PRINT" 


4 


140 PRINT" 


3 


150 PRINT" 


€ 



10 



• jjp'l Tm;s PROGRAM IS [N Ti«jri phPI"-. T>. PERMIT FU.L MS TRACTION 
, PFM tin IMF TRS-80-LEVEI I. 4h UNIT IT MILL REQUIRE OS PHRT 
: PFM nf- thf PROGRAM TO CLEAR WITH NEW' AND TO CI OAD THE ACTUAL 
4 PEN GAME PROGRAM 

e . CIS 

10 PRINTATlS. " -: MF.RCV MISSION - VEHR 2000 ': '•" 

2'0 REI1*WPITTFN BY IOHN NARLER SAN JOSE.CA* 

7-0 FORI=1TO1880 NEXT I CLS 

40 INPUT "WHAT IS VOUR LAST NAME"- A* CLS 

SO FOPI*1TO10O0 NEXT I PRINT "WELCOME TO ANCiTHER GREAT ADVENTURE OF" 

*3 PRINT TAPTA IN ". ft$ ." —SPATE HERO'" PRINT PRINT 

65 PRINT"CAPTAIN ".0$ " VW MAV NOW OPEN VOUR ORDERS'" 

70 INPUT"PPESS ENTER TO OPEN THE ENVELOPE"; B» CLS 

90 PRINT"CAPTAIN ".A*" ON THIS TRIP VOU ARE GOING TO BE ABLE" 

90 PRINT-TO OETFPMINE THE FOLLOWING INFORMATION " 
TOTAL ELAPSED TIME" 
LOCATION BV X AND V COORDINATES" 
AMOUNT OF FUEL LEFT ONBOARD- 
SPEED OF VOUR SHIP" 
THE ANGLE VOU ARE TRAVELING" 
VOUR DISTANCE FROM THE MINER'S COLONY" 

160 PRINT PRINT PRINT 

170 INPUT-PRESS ENTER TO CONTINUE ORDERS", B* 

190 CLS PR I NT "VOU CAN CHANGE VOUR DIRECTION, INCREASE OR DECREASE" 

190 PRINT"SPEED BV FIRING TWO TYPES OF ROCKETS; THESE ARE " 

200 PRINT" M-MAIN ROCKETS" 

210 PRINT" H-BALLAST ROCKETS" 

220 PRINT" 'C WILL BE TO COAST" 

230 PRINT PRINT 

240 PRINT"NAIN ROCKETS USE 1 UNIT OF FUEL, BALLAST USE 1/2 UNITS" 

250 INPUT"PRESS ENTER TO CONTINUE ORDERS"; B* CLS 

260 PRINT'VOU MUST DECIDE HOW MUCH FUEL TO BURN THEN VOU MUST" 

279 PRINT-DECIDE WHAT DIRECTION *T0 FIRE VOUR ROCKETS*. VOU ARE" 

280 PRINT"ABLE TO ROTATE VOUR SHIP IN THIS MANNER DIRECTIONS ARE:" 
290 PRINT" 90" 

380 PRINT" 135 *** 45" 

31A PRINT" 180 ****** 0" 

220 PRINT" 225 *** 315" 

330 PRINT" 270" 

340 INPUT-PRESS ENTER TO CONTINUE ORDERS"; B* 

350 CLS PRINT-VOU MUST START TO FIRE IN THE OPPOSITE DIRECTION TO" 

360 PRINT-SLOW DOWN PRIOR TO ARRIVAL AT 'ZETA' ARRIVAL MANDATES" 

370 PRINT"ARE THAT VOU MUST BE WITHIN A DISTANCE OF 1 AND AT A" 

380 PRINT"SPEED OF *LESS THAN 1*. " 

398 PRINTPRINT 

400 INPUT"PRESS ENTER TO GO ON";B» 

410 as 

420 PRINT-MAKE A MAP WITH A 10 BV 10 GRID PATTERN TO ASSIST" 

430 PRINT"VOU IN MAKING A SUCCESSFUL TRIP " 

440 PRINT PRINT 

450 INPUT"ENTER 1 TO START. 2 TO REVIEW INSTRUCTIONS"; 2 

460 IF2-2THEN70 

478 CLS: PRINT-GOOD LUCK COMMANDER ";A*. "' YOU'LL NEED IT!" 

480 FORI«1TO1000 NEXTI 

490 CLS: PR I NT "ENTER 'NEW' AND THEN 'CL ' TO GO ON" 

1 REM NOTE THE USE OF SUBROUTINES FOR SQP<SOUARE ROOT) AND 

2 REM ARCTANGENTS 

2 REM DIM STATEMENTS CAN BE, DERIVED FROM THE VARIBLE LISTING 

15 CLS PRINTAT15- "**** MERCY MISSION - VEAR 2800 ****" 

16 FORI=1TO1000 NEXTI CLS 

17 REM CLEAR VARIABLES TO ZERO 

18 X»10 V=10 U»A V=0 W«0 Z=0 
20 F«18-D=98 995 P=3 1416 G=l 
22 E*0 



38 T=8 

48 0*8 H«l H*2 C«3 

198 PRINT PRINT'DATA READOUT" 

118 PRINTT;" HOURS"; TAB<32>; F; " LITERS" 

128 PRINT"LOCATION: "i Xi V; TAB<32>; "DISTANCE= "i D 

138 PRINTZ. " DEGREES"; TAB<32>; "SPEED" »j V 

288 J«RND<58> 

218 IFJ>«6THEN298 

212 PRINT "PROBLEMS "i 

228 0NJG0TO238, 248. 258, 268. 278 

238 PRINT'OVROS ANGLE ERROR" : G«G+i : G0T0298 

248 PRINT"FUEL LINE" F-F- 5 G0TO298 

258 PRINT-LIFE SUPPORT" : T«T+ 85 : G0T0298 

268 PRINT-8LIENS FREEZE MOVEMENT " U-8: H-8 Z«8 G0T0298 

278 PRINT'HETEORS" U-U+RND<8>- 5 U«U+RND<8>- 5 

298 IFE<«8THEN388 

292 E-E-1G0T0458 

388 INPUT "COMMAND <0. H, H. C> "l R 

318 IF ROl THEN 328 

312 B»l G0T03S8 

328 IF R<>2 THEN 338 

322 B»2 G0T0358 

338 IF R<>3 THEN 458 

348 E-5G0T0458 

358 INPUT "RNGLE "; ft: A-A+29*G*RND<8>-ld*i 

368 A-fl*V198 

379 J-B: OOSUB 898 L-8 

372 OOSUB 798: 0-8: F-f-l/J 

388 (MH< 8-*RND<A>* 4>*L/J 

398 M-M*< 8+RND(8>* 4)*Q/J 

488 IFU08THEM428 

491 IFWC8THEN418 

492 Z-98 G0T0458 u 
418 Z-278G0T0459 

426 Q-fl t=b ft-UAl: OOSUB 1198 

422 Z«8*198/3 14159 \ 

424 A-0 B»J ' 

438 Z«INT<Z+RMH18>-1> | 

448 IFIO-8THEN458 ., 

442 Z-Z+188 I 

458 X»X*UV»W< J 

468 Q=A A-U*U+H*H:G0SUB988 g 

538 R=U*i i+u*W ■ OOSUB 989 V=0 

549 R»<X-88>*<X-88>+<V-88>*<V-88> OOSUB 988: D*Q I 

688 IFF>«8THEN618 

682 PRINT"OUT OF FUEL" G0T0658 r 

618 IFD>«1THEN628 ► 

612 IFV>=1THEN628 S 

614 PRINT'ARRIVED" 00T0639 

628 T-T+ 1 a 

622 IFK-18THEN188 £ 

638 PRINT-THE TRIP TOOK"; T; "HOURS ■ & 

648 R«289*T H 

658 PR r NT "VOUR RATING IS";R>" " 8 

658 V»l: N-9 J 

669 INPUT"PLftV AGAIN"; P 

678 IF R-l THEN 18 

688 STOP 

798 A-A-l. 5798 

718 GOSUB 898 

712 A-A+l 5788 

728 RETURN 

758 A-ABS(A) 

768 OOSUB 888 

778 A»-ft 



M i 



II 



788 RETURN 

796 fl»fl-6 2832 

888 IF fl<8 THEN 758 
882 IF fl>2*P THEN 798 
818 B*fl*fl 

828 B»l-B*a-B*(l-B*<l-B*a-B*a-B/132>/98>/56V38V12>/2 
83? RETURN 
858 fl*fl/18 
868 GOSUB 988 
878 B*B*2 3826 

889 RETURN 

988 REM Q=SQU8RE ROOT<P> 

918 Q=8 

928 IF R08 THEN 978 

938 Q=l 

948 S*Q 

958 w*(R/S*S'/2 

968 IF PBS<<R/Q>/Q-f»* 8881 THEN 948 

978 RETURN 

1899 REM B=RRCTHN(fl> 

1188 B«fl*8 IF 8>»1 THEN 1138 

1118 B-fl*<l-B*<l/?-B*( 2-B*a/7-B*<l/9-B*<l/ll-B/13))>»> - » 

1128 G0T01168 

1138 IF B>1 THEN 1158 

1148 B= 78548 G0T01168 

1158 fl»l/fl GOSUB 1188 8=1/8 B-l 5788-B IF fl>8 THEN 1154 

1152 B*8-3 14159 

1154 RETURN 

1168 IF 8>8 THEN 1188 

1178 P* fP5 CB) 

1188 RETURN 

2848 GOT02888 



Dear Gordon, 



Jaaes B. Penny 
1537 Hamada 
Houston, TX 77062 



HERE IS A WAY TO MODirY YOUR T-BUG PROGRAM TO ALLOW YOU TO TYPE DOUBLE 
SIZED CHARACTERS (32 CHARACTERS PER LINE). IT WORKS ON LEVEL 1, DON'T 
KNOW ABOUT LEVEL 2. BUT I GUESS YOU DON'T NEED IT THERE. 

FIRST LOAD T-BUG THEN TYPE THE FOLLOWING: 

M4(^^CD'+8^BFE2ACA91 i *0D7C3^^XM4^9^8XM^lll^XG 

HIT CLEAR AND BEGIN TYPING IN 32 CHARACTER MODE. RETURN TO T-BUG ANY- 
TIME BY TYPING ASTERISK (*). GO BACK TO DOUBLE SIZE (REALLY DOUBLE 
WIDTH) CHARACTERS BY TYPING THE LETTER G. NOTICE THAT YOU GET TWO CHAR- 
ACTERS IN THE 6k CHARACTER MODE FOR EACH ONE THAT YOU TYPED IN THE 32 
CHARACTER MODE. I'M REALLY NOT SHURE WHAT MAKES THIS THING WORK BUT 
THE K EY IS THE MODIFICATION TO THE MEMORY CONTENTS 0F4090H. MAYBE SOME 
NEWSLETTER READER HAS A CLUE. 
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58 CIS PRINT" *** AMAZING ***" 

68 PEM *** BY STAN OCKERS - AUG 1978 *** 

7m REM +** FOR LEVEL 1 BASIC - TRS-88 *** 

98 INPUT "WHAT S VOL*? NAME " ; A* 

1A0 CIS F0RV=9T045 F0PX=4T0124 SET(X, V> NEXTX NEXTV 

les e=e 

118 M=RND<29> V=8 X=4*W+2 N=8 GOT0218 

12-8 N=N+1 IFN=528THEN388 

138 IFvP0INT-:X+4. V)=8>*':P0INT'X-4, V)=8)*<P0INT(X. V+2)==8>*(P0INT(X,V-2)«e>THEN26i 

) 4- J=RNTm 6 ) 0NZGOT0158. 150. 178- 178. 198, 218 

1 4 C , i IN7G0T0158 ■ 1 78 ■ 1 98 . 218 

1.58 IFP01NKX+4. V>=8THEN178 

I km priP I=XT0X*4-PES£T(.J, V> NEXT I X=X+4 G0T0128 

178 IFP0INT<X-4,V>=8THFN198 

I fin FOR t=vtmx-4STEP-1 PESFTt T. V) NEXT I X=X-4 GOT 01 20 

1* IFPulNT<X,V-2>=8THEN218 

?88 FnRl*X-lT0X*i.F0RJ«VT0V-2STEP-l:ReSeT< I. J) NEXT J NEXT I V»V-2 : 00T0128 

218 IF v=44THEN24M 

l'?0 I FF-0 1 NT ( X, V+2 > =8THEN158 

a H.<?I=X-1T0X*1 FfiR.T=VT0V+2 PESET< I. n NEXTJ NEXTI Y»V+2 • G0T0128 

:.4fi IFfNlTHENJSfl 

'■'< 8=1 F0RI=X-1T0X*1 F0RJ«VT0V+2 RESET* I • J) NEXTJ NEXTI 

;>8 :=PNT)<29VX=4*Z-»2 Z=RND<17^ V=8+2*Z 

, k [PPilINT. X. v >=1 THFN268 

#8 GUTO130 

km =4*w*/ V=y R=l i.=2 U=3 D=4 SET(X, V ) G0T0328 

tn PPINTH148. "PUN i:F('" 

V»i p-ti i>* h=m k=8 PRINTHT8. "01 RECTI ON (R.t-1) OP &>". 

.-■■• INPHTO 

ft flNQGOTO340> *80- 4V0. 468 

4*1 1JOSUB580 |H*»lTHEN3ifl 

r, G0T0352 

•■ft fa>?UB500 IFS=1THFN328 

'•■•=.;■ R'ESt T . \. v • I FG=1THEN37m 

< c -4 !F''=12bTHEN-% *38 QO5UBS00 • IFS*1THEN320 

: -- X«X*2 SETOC.V) 00T03S9 4 ^ RESETS. Y> 1FF=1THEN450 

i.H 'FF=mIhFN430 434 IFV=8THEN470 

• |FH=flTHEN470 44 * V=Y-1 SET(X,Y> GOTO430 

.-4 (tOTO?« 45e IFK=0THEN398 

288 GOSUB508 IFK-1THEN318 4 52 IFG=8THEN358 

k=, G0TO*92 4 54 G0T0478 
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QO91B500 IFS-1THEN328 4 ** &OSUB508TFH=lTHEN3i8 

RESET»X.V> IFM1THEN418 *>5 G0T0472 



J94 IFX-2THEM350 4? * QOSUB508 IFS=1THEN320 

4~.»i f«x-2 -SETOtV GOTO190 47 ? RESETCX, V) : IFH=1THEN490 

410 IFF*0THEK4*<0 4?4 IFV=46THEN430 



4!.' ]»-h=nTHFN4,"8 



480 Y=Y+1 IFV-45THEN590 



414 GQTO350 435 SCT<X»V) GOTO470 

420 GOSUB500 !FF=1THEN318 
4, : ". fiiiT0432 

4'-« IFk=8THEN398 

492 IFG=8THEN358 

4'-*4 G0T0438 

588 G=P0INT(X+2, V) K=P0INT(X-2. V) F=POINT(X, V-l ) H*POINT<X, V+l) :S"* 

518 C=(F+G+H+K> IF<X=1>+(C:=8>THENS=1 

520 RETURN 

598 RESETvX.V) V-V+1SET<X, V) 

•580 SET<X. V) PR I NTAT8. "CONGRATULATIONS ".A*." !!! VOU DID IT ":R«V 

i-'.10 PRINTAT64. "HANT TO TRV AGAIN". V=1INPUTQ 

620 IF0O1THFN658 

638 PRINTATM FRINTAT8 INPUT"A NEW MAZE"; Q: IFQ=lTHEN18e 

648 RESETCX.R) G0T0388 

658 END 
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RESTART 1#2 
(an article on machine language ) 
By G. Frank Humiston 

The hardware configuration of the TRS-80 causes it to 
activate NMI (Non-Maskable Interrupt) when it executes a 
HALT instruction. This means that op code 76^ can be 
thought of as a "RESTART 1#2" instruction rather than a 
HALT. The effect of the instruction is to call BASIC. 

SAVE HUNDREDS ON YOUR NEXT 
TRS-88 EQUIPMENT PURCHASE' 

HOW WOULD VOU LIKE TO GET $60 OFF ON THE PURCHASE OF R TRS-88. 4K. LEW,. 1 
SYSTEM- fl38.ee OFF AN LINE PRINTER- $18 68 OFF LEVEL 11 $*8 88 OH- H [•:-■- 
SYSTEM, AND $38.88 OFF AN EXPHNTION INTERFACE' All new EQUIPMENT, FULLV 
MARRANTIED BV RADIO SHACK" IT LAN BE {-ONE 
I RECENTLV SAVED OVER $458 88 ON MY SYSTEM MiJM 

<1) SHAREHOLDERS' DISCOUNT SINCE RADIO SHflC* IS A DIVISION OF TANDY 
CORPORATION, ALL STOCKHOLDERS OF TANDY >JiRF- 'RATION -->i'>U >NEW YORK 'r.TOO. 
EXCHANGE LISTED, TAN'.) ARE ENTITLED TO A FULL 18;; OFF ON ALL RADIO SHAc* 
PURCHASES. SHARES ARE PRESENTLY TRADING FOP BETWEEN $;>,' AND $28 PEP .■-*->. r. 
YOU NEED ONLY PURCHASE ONE SHARE TO BE OfFlLlALLV LISTED HS H -SHAREHOLDER 
ON CORPORATE RECORDS BROKERAGE FEE': n-t EX 'PA., BUT STILL ALLOW H'P h 
SUPSTANTIAL DISCOUNT 

<2> NO SALES TAX IF VOU D'jN T '.. •Vt IN I HE sTATE IN WHICH VOU PoVi.HhSE 
YOUR SYSTEM, YOU NEEDN'T PAY THE STATE sALtb •*,;, PROVIED THE EQUIPHEW 
IS SHIPPED TO YOU OUT OF STATE I WAS RECENTLV IN LOUISIANA AND FURCMfoci' 
A GOOD DEAL OF EQUIPMENT SINCE IT WAi. SHIPPED To ilk IN VIRGINIA. 1 WAS 
NOT REQUIRED TO PAY LOUISIANA STATE SALES TA.-. 

(3) FREE SHIPPING. DON'T BE AFRAID TO NfcGtf.'IArt WITH YOUR *AOI0 SHf""* 
STORE MANAGER. SOME MANAGERS nRfc INDEFtNDEM's --n i-iFFEPENT TYPE OF 
FRANCHISE FROM THE TANDY CORP WHICH ALLOWS MUfH GREATER LAD IT' IDE >'N 
SALES AGREEMENTS) AND CAN GIVE YOU A PRETTY GOOD DEAL WITH ONLY A 
LITTLE PERSUASION I WAS ABLE TO GET THE LOUISIANA DEALER To SHi 1 - ALL 
MY EQUIPMENT VIA UPS (FULLY INSURED AND SECURLEV PACKED) DIRECTLY TO 
MY HOME IN VIRGINIA AT HIS EXPENSE IT NEVER HURTS rO ASK. 1 

HARRY A. HOPKINS, P. BOX 873. LHNGLEV HF6, Vh 23665 
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Sincerely^ . 

Lee Wtroett 

G302 Club Key East Apt. 

Greenville, South Carolina 29602 



+ I Kk PHM ♦ 16K RRN * 16K RRM * ±6K RAM * 16K RRM * 

MJK ONLV *1J:h ^f=i PLUS $2 0O SHIPPING 



i H» i K^-H« I.I- ..fc KV> 

hj:- i ini i - *i • ' ■-■'-. 

i r-l Mf MLIRV i • V i 
SENL' fl L'ERTIF 1ED 
r>J IHfc lp--.-:-:n l.l 



i k- 



-:n 



rivi r ■ fcvj 

.. it- ■■ i .:< 



JPUi IP HmS R SGPPLV OF 16K CHIPS. 
iM.il i UHN UP-iiPHDfc VOI IP TRS-6© TO 

i MULILL) LIKE H SET UP TWU PL ERSE 
'HFC* OR R MONEV UPl'ER PRVRBLE 
-.hp---. UROUP 

i--. I- i- ■--. Hptiiip. 7354 5DUTHGATE RD 
^y>ki4. '.419;' 8b i-'-58£'2 

:i ib ■ 



SUBJECT: Double Size Characters & Graphics on TRS-80 

I found Timothy Loos writeup on double size characters interesting. 
See Vol 1 No A Pg 4. 

r 

I dug into this further and developed two interesting programs. 
Program X2A displays alpha-nu characters X2 size. Program X2B displays 
graphics X2 size. Both the program and X2 control are stored on tape, 
one following the other. 

The program procedure is detailed as follows: 

WRITE 

1. Type all letters and spaces twice. This insures display of all words 
because the X2 screen display is only for alternate characters. 

2. Read the tape position dial on recorder before entering programs. 

3. Press RECORD & PLAY keys. 

A. Store on the tape by typing CS . Press ENTER key. 

5. Type P.#"1"CS. Press ENTER key. Display says WHAT? READY. 

6. Release RECORD & PLAY keys. 

7. Return to beginning of program as noted in line 2 above. 

DISPLAY 

8. Press PLAY key. 

9. Type N. Press ENTER key. This clears screen. 

10. Type CL. Press ENTER key. Computer says CL. READY. 
11. For alpha-nu display type L. Press ENTER key. 

For GRAPHICS display type RUN and then press ENTER key. 

For GRAPHICS display then press BREAK 
12. Again type CL. Press ENTER key. This enters line 5 control. 
13. Screen says READY. Release PLAY key. 
14. Type IOCS. RUN Press ENTER key. 

Line 1 program appears briefly on screen shifted to the right. 
After a slight pause, DOUBLE SIZE letters appear on the screen. The 
TRS-80 Screen Printer if available can be used to great advantage 
to print out memory contents. It prints out ALL stored characters but 
not the X2 size screen characters. The screen displays alternate stored 
characters, twice normal size. 

To gain computer control back, the most sure-fire way is to always 
turn the TRS-80 Computer OFF, then after a few seconds to turn it back ON. 
Have fun! It may even be possible to display X4 size characters. The 
combination of X2 graphics and alpha-nu characters has many interesting 
possibilities. Perhaps XI and X2 characters can be combined.... 



Roy Hempel PO Box 3730 Santa Monica, CA 90403 



15 



READV 

>11 XX22AA AALLPPHHAR— NNUU 

>22 XX22 SSIIZZEE PPRROOGGRRAAMM 

>33 11223344556677889986 1 ■ 

>44 RflB8CC0C€EFFGGHHI I J JKKLLMMNNOOPPQQ 

>55 RRSSTTUUVVMMKKVVZZ ALPKA-NU 

>66 ! ' MII/2M' "(O >**== WRITE 

>77 <0> — ►♦7?/7; i +♦ EENNDO 

>cs. 

REflDV 

>P. t"l"CS. 

J*«T? 

READV 



'>CL 

REflDY 2. 

>L. 

11 XX22AA AALLPPHHAA-- MNUU ALPHA-NU 

22 XX22 SSIIZZEE PPRROOGGRRAAMM DISPLAY 

33 11223344556677889998 

44 AABBCCDDEEFFGGHH 1 1 J Jk'kLLMMNNOOPPGl! 

55 RRSSTTUUVVWUXXVYZZ 

66 MMtfXXM' '<<>>***■ 

?? <0>—+*r>//i ; ♦♦ EENNDD 

>cl 

REflDV 
>18CS RUN 

The screen printer tape 1 was printed after typing all Info 
on the TRS-80 keyboard and prior to storing on tape. 

The screen printer tape 2 was printed after displaying all 
X2 info on Monitor screen. Comparison of tape 2 and monitor screen 
shows clearly which characters are being picked up X2 size on the 
monitor screen. 



11 


CLS 


22 


REM X28 GRflPHICS DISPLAY 


33 


REM X2 SIZE PROGRAM 


44 


FOR X « 12 TO 54 STEP 3 


55 


FOR V « 6 TO 24 STEP 3 


66 


SET OCV> : NEXT V NEXT X 


77 


P AT 584. 8 


88 


GOTO 88 


XS. 




REflDV 




>P i'l"CS 


WW? 




REflDV 




>- 





3. 

GRAPHICS 
WRITE 



@fi@Gfi3fifiS 



GCRRAAPPHHIICCSS 



4. 
GRAPHICS 
DISPLAY 



BREAK AT 88 
>Ct . 

READY 

■.clOCS ROM 



The screen printer tape 3 was printed after typing all info 
on the TRS-80 keyboard and prior to storing on tape. 

The screen printer tape 4 was printed after displaying all 
X2 info on monitor screen. Comparison of tape 4 and monitor screen 
shows clearly which characters are being picked up X2 size on the 
monitor screen. 





ctteee 


, CHHNGE 


TO PStt/1 




18088 ,flD0 TO RSH/1 






2881b 


■ FOP LINEPRINTER 




18010 .FOP LINEPPINTER 


42F4 


28828 




ORG 


42F4H 


4FC0 


10028 


ORG 


4FC8H 


4FC8 


20838 


PRTOUT 


EM 


4Fi" 0H 


8833 


10038 VIDEO 


EiA> 


33H 


42F4 t>5 


20040 


CRT 


PUSH 


DE 


4FC8 CD3388 


18849 PRTOUT 


CALL 


VIDEO 


42F5 F5 


i'0050 




PUSH 


RF 


4FC3 D9 


10050 


EXX 




42F 6 FE0D 


i00b« 




CP 


13 


4FC4 21E83? 


18868 


LD 


HL,37E8h 


42F8 2989 


ctjQ^e 




JR 


NZ3 CPT1 


4FC7 56 


10870 PRTLPS 


LD 


O.cHL) 


42FH 118618 


20080 




_D 


DE.1808H 


4FC8 C870 


10088 


BIT 


7,D 


42FD ID 


20890 WHIT 


DEC 


E 


4FC0 C2C74F 


10898 


JP 


HZ, PRTLPS 


42FE 28FD 


20106 




JR 


NZ.. WA [ T 


4FCD 71 


10108 


LD 


(HL' <t 


Asm 15 


^0110 




DEC D 




4FCE [>9 


10116 


E.A 




4381 29FH 


2012W 




JR 


NZ.Wfi! T 


4FCF C9 


10120 


RET 




4383 CDC84F 


20U0 


CPU 


CALL 


Prtoui 


4388 


18138 


EHT 


4388H 


4~<86 3E8E 


28140 




LD 


H.0EH 


00080 TOTAL ERRORS 






4383 CDC84F 


20158 




CFItL 


PRT0H7 


PRTLPS 4FC7 








4388 Fl 


281&8 




POP 


*F 


PRTOUT 4FC8 








438C Dl 


20170 




-i."- 


DE 


VIDEO 8833 








438D C9 


-0180 




RET 












4388 


20190 




ENT- 


4j430H 










88880 TOTRL ERRORS 
















Mfln iiri 


















CRT1 4383 


















CRT 42M 


















PRTQUT 4FC8 



















C 'LEH_-L iENL 'h.u H>' ,1.1 
VOU HHVi r-- HHKl.' i I •! V 
MflV SF Nl' ■ 'I I N MHt- N 

HN RR'I I : I h HI I r > i N I 



t- •-. .-.rj HK»l»i.iRHMS ON TRPE i h 

HHi IS IN I HE btN R'lhOTRI villi 
VHII MilKh THi rnpR ru SI-NO E rj 

. I HTr '!' ••: ' H I ■■ I Hf I r<- I TJ I 
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100 REM STATES AND CAPITALS QUIZ PROGRAM 

110 REM CONVERTED FOR TRS-80 LEVEL II BY BOB CHEEK 

115 CLS 

128 DIM FK50),B*,4>,C$<.50>, S*k50;> 

126 REM READ IN STATE AND CAPITAL ARRAYS 

140 FOR 1=1 TO 50 

150 READ 5f<I)>C$<I) : NEXT I 

160 FOR 1=1 TO 50 : A<I>=0 : NEXT I : G=0 N«0 

170 CLS. PRINT "YOU HAVE YOUR CHOICE OF FILL-IN OR MULTIPLE CHOICE" 

130 INPUT "WOULD YOU LIKE TO FILL-IN THE ANSWERS"; Z$ 

190 IF Zf*"V" OR Z*="YES" THEN 220 

200 CLS: PRINT 'MULTIPLE CHOICE - ANSWER EACH QUESTION WITH 1,2,3, OR 4" 

210 X*l : PRINT "TO STOP TYPE vZERO; FOR YOUR ANSWER" 

220 GOTO 250 

230 CLS PRINT "FILL-IN - YOU MUST SPELL EXACTLY: -.SAINT IS ABBREVIATED ST. )' 

240 X-2 : PR1NT"T0 STOP TYPE S FOR YOUR ANSWER" 

250 PRINT 

260 PR I NT "YOU HAVE YOUR CHOICE OF WHETHER THE STATE OR CAPITAL IS ASKED" 

270 INPUT "MOULD YOU LIKE TO ANSWER wiTn THE CAPITAL ,2* 

280 Y=2 

290 IF Z$="V' OR Z*» n YES" THEN Y=l 

300 PR I NT: PR I NT 

210 REM PICK A STATE 

220 FOR 1=1 TO 18 

330 R*INTCRND<50>) 

340 IF A<R)<>2 THEN 400 

350 NEXT I 

360 REM DON'T WASTE TIME PICKING ONE 

370 FOR R=l TO 50 

380 IF A(R)02 THEN 400 

390 NEXT R : GOTO 850 

400 IF A(R)=1 THEN PRINT"TRV THIS ONE AGAIN" 

410 IF X=l THEN 520 

420 IF Y«2 THEN 478 

440 A$=C$<R> 

450 PRINT "WHAT IS THE CAPITAL OF ";S$<R)j 

460 GOTO 490 !t S S ' 

470 A*=S$<R> ~ q 5 

480 PRINT C*<R>, " IS THE CAPITAL Of"; £ | W £ 

490 INPUT 2% *- g o . 

508 IF LEN<Z»>«1 THEN 810 $ z uj ^ 

510 IF Z$=A$ THEN GOTO 770 ELSE GOTO 760 jg *• £ - 

520 REM THIS SECTION ASKS MULTIPLE CHOICE QUESTIONS | j£ M g 

520 REM THE VALUE OF C IS THE CORRECT ANSWER | as *~ g 

540 OINT<RttK4;; ~ Z\ % I 

550 REM PICK FOUR: STATES FOR THE CHOICES * ™ - * 

568 FOR 1=1 TO 4 ffl 9 $ JE 

570 B<I)sINT(RND<58?) ^ > £ H' 

588 NEXT I ^i- 

590 B<C>=R . fi - 

680 REM MAKE SURE NONE ARE THE SAME * ? £ rf 

610 IF B<1)«8<2) OR B(i)«B(2) OR B(1)=B<4) THEN 560 $ x 5 uj 

620 IF B<2>«BG) OR 6(ZV=B<4> OR BG.>=&<4> THEN 560 « £ a 8 

630 IF Y=2 THEN 690 gj i S | 

648 REM PRINT CAPITAL CHOICES !jj 8 € z 

690 PRINT "1 'SC$<B(1^;TAB(20), "2 ";C*<BO>> K * 

660 PRINT "2. ";C$<B(2)),TAB<20>; "4. ",C*<B<4)> 

678 PRINT "THE CAPITAL OF ";S*(R^;" IS", 

680 GOTO 730 

690 REM PRINT STATE CHOICES 

780 PRInT : i. ';S*(B(l);;TAB(2B)j "2. ">S$<.B<3;> 

710 PRINT "2. ".S*i&\2^,"hL' t y.'. '4. ;S*<6<4>) 

f20 PRINT C*».R>; IS Irit CAPITAL OF"; 

730 INPUT Z . Z=INT*ABSZ • ) 



74€l IF 2<1 Ok Z>4 THEN 810 

756 IF Z=C THEN 770 

768 A<R>=1 : PRINT "WRONG" . GOTO ?*/% 

770 fl<R)=2 : N=N+1 

780 PRINT "RIGHT: VOU HAVE"i Nj "CORRECT " 

796 PRINT : G=G+1 

800 IF N<50 THEN GOTO 210 ELSE GOTO 850 

816 INPUT "DO VOU WANT TO STGP";Z* 

820 IF Z*= V THEN 850 

825 IF Z$='VE5" THEN 850 

830 PRINT "YOUR ANSWER FOR LAST QUESTION"; 

848 ON X GOTO 720, 490 

850 PRINT 

860 PRINT "YOU GOT", Hi "RIGHT IN "; G> "GUESSES" 

37b INPUT "WOULD VOU LIKE TO TRV AGAIN"; Z* 

880 IF Z*= "V" OR Z$="YES" THEN PRINT : GOTO 160 

890 DATA "ALABAMA", '' MONTGOMERY", "ALASKA", "JUNEAU", "ARIZONA" 

892 DATA "PHOENIX", "ARKANSAS", "LITTLE ROCK", "CALIFORNIA" 

894 DATA "SACRAMENTO", "COLORADO", "DENVER", "CONNECTICUT", HARTFORD" 

896 DHTfl "DELAWARE", "DOVER", "FLORIDA", "TALLAHASSEE", "GEORGIA ' 

898 DATA "ATLANTA", "HAWAII", "HONOLULU", "IDAHO", "BOISE", "ILLINOIS" 

900 DATA 'SPRINGFIELD", "INDIANA", "INDIANAPOLIS", "IONA" 

982 DATA "DES MOINES", "KANSAS", "TOPEKA", 'KENTUCKY 1 , FRANKFORT" 

904 DATA "LOUISIANA", "BATON ROUGE", 'MAINE", "AUGUSTA", "MARYLAND" 

906 DATA 'ANNAPOLIS", "MASSACHUSETTS", "BOSTON", "MICHIGAN" 

908 DATA "LANSING", 'MINNESOTA'S "ST Ph*jL", 'MISSISSIPPI", "JACKSON" 

910 DATA "MISSOURI", "JEFFERSON C I TV", "MONTANA", "HElENA", "NEBRASKA" 

912 DATA "LINCOLN", "NEVADA", "CARSON CIYV", "NEW HAMPSHIRE' 

914 DATA "CONCORD", "NEW JERSEY", "TRENTON", "NEW MEXICO", "SANTA FE" 

916 DATA "NEW YORK", "ALBANY", "NORTH CAROLINA", "RALEIGH" 

918 DATA "NORTH DAKOTA", "BISMARCK", "OHIO", ,: COLUMBUS", "OKLAHOMA" 

920 DATA "OKLAHOMA CITY", "OREGON", "SALEM", "PENNSYLVANIA" 

922 DATA 'HARRISBORG", RHODE ISLAND'S PROVIDENCE", "SOUTH CAROLINA" 

924 DATA "COLUMBIA"* "SOUTH DAKOTA", "PIERRE", "TENNESSEE" 

926 DATA "NASHvIlLE", "TEXAS", "AUSTIN", "UTAH", 'SALT LAKE CITY" 

928 DATA "VERMONT", "MONTFELIER", "VIRGINIA", "RICHMOND", "WASHINGTON" 

920 DATA "OLYMPIA", "WEST VIRGINIA", 'CHARLESTON", "WISCONSIN" 

932 DATA "MADISON", "WYOMING", "CHEYENNE" 

956 END 

588 CLS PRINT PRINT 

509 PRINT" MY $630 AODING MACHINE" PRINT 

516 PRINT: PRINT" THIS PROGRAM DISPLAYS AND ADDS OR SI ©TRACTS" 

511 PR I NT "AND GIVES VOU SUBTOTALS AND TOTALS JUST FOLLOW THE" 

512 PRINT" INSTRUCTIONS REMEMBER. TO GET A SUBTOTAL, JUST ENTER" 
51? PRINT"A ZFPO ANO FOR THE GRAND TOTAL, ENTFR ZERO AGAIN 

514 PRINT PRINT PRINT INPUT "WHEN YOU'RE READY TO START. HIT ENTER' ".A$ 

515 CLS 

520 PRINT :PRINT"ENTER EACH AMOUNT USE A NEGATIVE SIGN FOR MINUS" 

521 PRINT-NUMBERS ENTER B FOP SUBTOTAL 
525 B=A PRINT 

530 PRINT" "i INPUTA 

535 IF A=8 GOTO 560 see REM * COPYRIGHT FRED BLFCHMAN 1978 * 

540 B=B+A 5ei PFM + 2?<«B ARCHWOOD ST . CANOGA PARK 

550 GOTO 530 53, RFM „ p „ s26&5 * ' 

560 PRINT PRINT-THE SUBTOTAL IS".B 

565 PRINT 

570 INPUT"TO CONTINUE' ENTER 1 FOR FINAL TOTAL. ENTFR "C 

580 IF C*l GOTO 5"?0 

590 PRINT PRINT-THE FINAL TOTAL IV, B 

595 PRTNT 

600 INPUT "AGAIN-' YES*J, MOWS "-D 

610 IF D=l GOTO 515 

620 ft-. PRINTAT404. "GLAD TO HFI P fiOODBVE " PRINT PRINT PRINT 
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